Top 10k strings from AC Linear Circuit Analysis (1984)(Number One Systems).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
6 C$(Z)=" ":
5 );" ";C(Z,2
4 );" ";C(Z,3
3 C$(A)=" "
2 PROC MICRODRIVE
2 EK=A11*A11+B11*B11:
2 ;"NODE B ";C(Z,2
2 ;"NODE A ";C(Z,1
2 "SELECT ONE OF THE FOLLOWING:"
2 "ENTER FILE NAME ?";:
1 ma=lgm-cht
1 c (mA) ";C(Z,5
1 ZK=KE*KD+KF*KC:
1 YK=KE*KC-KF*KD:
1 X=KA*KA+KB*KB
1 WATCH THIS
1 V$="Z NOM"
1 V$="GAIN NOM":
1 V$;GN;" ";Y$
1 UDRV;"MICRODRIVE"
1 U$=R$+"(dB REL)":
1 U$=R$+"(dB ABS)":
1 U$=R$+"(ABS)"
1 U$=R$+"(% ERR)":
1 TRANSFORMER
1 START OF ANALYSIS
1 SIMULATE ON M GOTO LINE
1 SILLY INPUT ROUTINE
1 SILLY FLAG
1 SET CAPS & K/B CLICK
1 R(J,J)=R(J,J)+V
1 R(J,I)=R(J,I)-V
1 R(I,K)=R(I,K)+GA:
1 R(I,J)=R(I,J)-V
1 R(I,J)=R(I,J)-GA:
1 R(I,I)=R(I,I)+V
1 R$="Z OUT"
1 Q(J,J)=Q(J,J)+V
1 Q(J,I)=Q(J,I)-V
1 Q(I,J)=Q(I,J)-V
1 Q(I,I)=Q(I,I)+V
1 PROC TWO SAME
1 PROC SOUND
1 PROC OP AMP
1 PROC MICRODRIVE CAT
1 PROC COUNT COMPS
1 PROC CHECK INPUT
1 PROC BIPOLAR
1 P(T,LK)=P(T,LK)+V:
1 P(T,D)=P(T,D)-V:
1 P(P,LK)=P(P,LK)-V:
1 P(P,D)=P(P,D)+V:
1 P(LK,T)=P(LK,T)+V:
1 P(LK,P)=P(LK,P)-V:
1 P(K,K)=P(K,K)+V
1 P(K,I)=P(K,I)-V
1 P(J,K)=P(J,K)-V
1 P(J,J)=P(J,J)+V
1 P(J,I)=P(J,I)-V
1 P(J,I)=P(J,I)+V
1 P(I,J)=P(I,J)-V
1 P(I,I)=P(I,I)+V
1 P(D,T)=P(D,T)-V:
1 P(D,P)=P(D,P)+V:
1 No.OF COMPS
1 NMCP=NMCP+1
1 N$="TEST":
1 MEDIA SELECTION
1 MAY BE ABLE TO INCREASE THIS
1 LOAD POSITION POINTER
1 LIST VALUES
1 KF=B(D,H):
1 KE=A(D,H):
1 KD=B(G,D):
1 KC=A(G,D):
1 KB=B(D,D):
1 KA=A(D,D):
1 IF WINDOW L;PROC RETURN SCREEN
1 FIRST PASS
1 FALSE , MISSED A FEW BITS OUT
1 F1=-F1*DD:
1 ENTER CICUIT NAME THEN
1 EK=CK*CK+DK*DK:
1 DK=A11*B00+A00*B11-A01*B10-A10*B01:
1 DEFPROC NODE ERROR
1 DEFPROC END INPUT
1 DEF PROCRMATRIX
1 DEF PROCDO-N
1 DEF PROC TR.MATRIX
1 DEF PROC SILLY
1 DEF PROC SAVE
1 DEF PROC ROUND IT (ZZ)
1 DEF PROC RETURN SCREEN
1 DEF PROC PRINT RESULTS
1 DEF PROC PARAMETER
1 DEF PROC OUTPUT
1 DEF PROC OS CHECK
1 DEF PROC NAME
1 DEF PROC MAINCALC
1 DEF PROC LPRINT OUTPUT
1 DEF PROC LPRINT COMP.LIST
1 DEF PROC LOAD
1 DEF PROC LMATRIX
1 DEF PROC LIST VALUES
1 DEF PROC EXAMPLE CCT.
1 DEF PROC CONV SET
1 DEF PROC CMATRIX
1 DEF PROC CLR COMPS
1 DEF PROC CLI
1 DEF PROC CALC TYPE
1 DEF PROC BUGS FIX
1 DD=-((EN/ST)^(-1
1 DD=(EN-ST)/(SP-1
1 D2=D2/1E17
1 D2=D2*1E17
1 D2=-B11/EK:
1 D2=(CK*B11-DK*A11)/EK:
1 D2=(A10*B11-B10*A11)/EK:
1 D1=D1/1E17
1 D1=D1*1E17
1 D1=A11/EK:
1 D1=-(A10*A11+B10*B11)/EK:
1 D1=(CK*A11+DK*B11)/EK:
1 COMPS AS SHOWN BELOW.
1 COMP.ENTERED BEFORE?
1 CK=A00*A11-B00*B11+B10*B01-A10*A01:
1 C(Z,S)=C(Z,O)
1 C$(Z)=" "
1 C$(C)=Q$(3
1 C$(C)=B$(1
1 C$(C)="P "
1 C$(A)=B$(1
1 B1=B1/1E17
1 B(K,L)=W1*Q(K,L)+R(K,L)/W1
1 B(G,H)=B(G,H)-(ZK*KA-YK*KB)/X
1 AGAIN ? Y/
1 A(K,L)=P(K,L):
1 A(G,H)=A(G,H)-(YK*KA+ZK*KB)/X:
1 > TO RESUME"'''"START TAPE";'':
1 ;T$;" ":
1 ;NMCP;N$;W$;C$(C)
1 ;NMCP'N$'J$'C$(C)
1 ;N$;" "
1 ;E$;" ":
1 ;E$;" "
1 ;C$(C);C(C,1
1 ;C$(A);C(A,1
1 ;C$(A)'C(A,1
1 ;'D$;" NOT A VALID TYPE"
1 ;'"NODES MUST BE DIFFERENT & >0,<";NO'"RE-ENTER NODES : ";:
1 ;"hfe ";C(Z,4
1 ;"VALUE ";C(Z,3
1 ;"TOO MANY STEPS (50 MAX)":
1 ;"TAPE OR MICRODRIVE:";
1 ;"SOURCE ";C(Z,3
1 ;"RATIO ";C(Z,5
1 ;"OUTPUT NODE ";C(C,2
1 ;"O/P ";C(Z,3
1 ;"NUMBER ONE SYSTEMS";
1 ;"NODE D ";C(Z,4
1 ;"NODE C ";C(Z,3
1 ;"NO VALUES ENTERED YET!!"
1 ;"NETWORK ANALYSER";
1 ;"M";DRV;N$
1 ;"M";DRV;M$
1 ;"INVALID CHOICE TRY AGAIN":
1 ;"INPUT NODE ";C(C,1
1 ;"GROUND NODE ";C(C,3
1 ;"GM (A/V) ";C(Z,4
1 ;"GATE ";C(Z,1
1 ;"FREQUENCY RANGE"
1 ;"ENTER MEDIA";
1 ;"ENTER DRIVE NUMBER ";
1 ;"EMIT. ";C(Z,3
1 ;"DRAIN ";C(Z,2
1 ;"COL. ";C(Z,2
1 ;"BASE ";C(Z,1
1 ;"31 07 84"
1 ;"-IN ";C(Z,2
1 ;"+IN ";C(Z,1
1 ;" OR BREAK"
1 ;" NO.OF STEPS(- FOR LOG)(50 MAX),"'" 'D' FOR PRESET DATA ? ";
1 ;" ";C(Z,B);:
1 ;" ";C(Z,3
1 20,50,100,200,500,1E3,2E3,5E3,1E4,2E4,3E4,5E4,7E4,1E5,0
1 1ST PAGE ENTERED
1 1ST EMPTYLOCATION
1 ---PROC TRANSFORMER----
1 );" ";C(Z,5
1 );" ";C(Z,4
1 );" ";C(C,3
1 );" ";C(C,2
1 (ML);C(A,B);
1 (D1*D1+D2*D2)
1 'W$;"COMPONENT TYPE ERROR":
1 ''''"TEST RESULTS ";
1 '''"FREQUENCY";
1 ''"PLAY TAPE AND WAIT UNTIL TONE"'"TO ABORT PRESS <BREAK>"'" THEN <RETURN>"
1 ''"NEW CIRCUIT NAME? Y/
1 ''"ENTER DATE ";
1 ''"END OF INPUT LIST"
1 ''"CIRCUIT NAME ";N$;''"
1 ''" PRESS ANY KEY TO CONTINUE":
1 '"VERIFY ? Y/
1 '"T (TRANSFORMER):";
1 '"STOP TAPE":
1 '"STOP TAPE"'"PRESS ANY KEY TO CONTINUE":
1 '"SELECT ONE OF THE FOLLOWING"
1 '"RESULTS PRINTOUT REQUIRED ? ";
1 '"Q (BIPOLAR TR.):";
1 '"PRINT COMPONENT LIST ? ";
1 '"PRESS ANY KEY TO CONTINUE"
1 '"P (PORTS)
1 '"NOMINAL ";R$;" (";Y$;") ";:
1 '"NEW FREQ. SWEEP REQUIRED ? ";
1 '"NAME OK?
1 '"MAXIMUM No. OF COMPONENTS ";CO
1 '"LOADING DATA---PLEASE WAIT"
1 '"FREQUENCY";
1 '"ENTER DATE ";:
1 '"ENTER DATE ";
1 '"ENTER DATA IN FORMAT SHOWN; "
1 '"ENTER CIRCUIT NAME : ";
1 '"DATED ";W$
1 '"DATA STATEMENTS FOR COMPONENT";'" ENTRY ? Y/";
1 '"CURRENT FILE NAME = ";N$;''"NAME OK ?
1 '"CURRENT FILE NAME = ";N$:
1 '"CURRENT CHOICE ";
1 '"COMPONENT NAME ;";:
1 '"COMPONENT LIST:";
1 '"COMPONENT LIST:"
1 '"CLEARING COMPONENT ARRAY"'"WAIT 15SEC"
1 '"A (OP.AMP)
1 '" ZERO NOT ALLOWED.RE-ENTER VALUE";:
1 '" NODE ";E;" IS INPUT"''" NODE ";F;" IS OUTPUT"
1 '" ENTER START FREQUENCY (Hz) ";
1 '" ENTER SPOT FREQUENCY (Hz) ";
1 '" <8> CATALOGUE STORE"
1 '" <7> CHANGE CIRCUIT NAME"
1 '" <6> SAVE CIRCUIT"
1 '" <5> RE-LOAD CIRCUIT"
1 '" <4> CHANGE ANALYSE PARAMETER"
1 '" <3> ANALYSE CIRCUIT"
1 '" <2> MODIFY CIRCUIT"
1 '" <1> START NEW CIRCUIT"
1 '" CURRENT CHOICE ";
1 '" <1> VOLTAGE GAIN"
1 '" CHOICE (1-8) ?":
1 '" <1>;";R$;" DB ABSOLUTE"
1 '" (IF yes AND COMPONENT VALUES";'" HAVE NOT BEEN ENTERED";'" PRESS break)"
1 "TO QUIT PRESS AND HOLD <Q>"
1 "THIS CIRCUIT HAS ";N;" NODES "
1 "REWIND AND PLAY TAPE UNTIL TONE"'"ON ERROR ENTER <RETURN>"
1 "PRESS ANY KEY TO CONTINUE":
1 "PRESS <ENTER> TO EXIT WITHOUT"'" CHANGING P":
1 "PLEASE PLAY TAPE"''"PRESS < BREAK > TO ABORT "''"AND THEN <
1 "MAXIMUM No. OF NODES
1 "INVALID CHOICE":
1 "I/P, O/P, GND"
1 "G, D, S, GM(A/V)"
1 "ERROR IN ";W$:
1 "CHOICE ";
1 "B,C,E,hfe,IC(mA)"
1 "A, B, VALUE"
1 "A, B, C, D,RATIO"
1 "+IN, -IN, O/P"
1 " ENTER END FREQUENCY (Hz) ";
1 " PLEASE WAIT"
1 " <3> OUTPUT IMPEDANCE"
1 " <2> INPUT IMPEDANCE"
1 " <4>;";R$;" LINEAR % ERROR"
1 " <3>;";R$;" LINEAR ABSOLUTE"
1 " <2>;";R$;" DB RELATIVE"
1 DEF PROC CONV
1 DATE ";G$